


tiff('fig2.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

     interplot(m = model1_sq, var1 = "l_stops_10", var2 = "l_stops_10", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient  \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("2010 Election")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=11),
                legend.position="none")
dev.off()

tiff('fig3.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

     
     
          
     interplot(m = model5_sq, var1 = "l_stops_08", var2 = "l_stops_08", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("2008 Election")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=11),
                legend.position="none")
 
dev.off()

tiff('fig4.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

          
         
     interplot(m = model9_sq, var1 = "l_stops_06", var2 = "l_stops_06", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient  \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("2006 Election")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=11),
                legend.position="none")    

dev.off()

tiff('fig5.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

          
     
     interplot(m = primary_sq, var1 = "l_stops", var2 = "l_stops", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient  \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("2013 Democratic Primary")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=11),
                legend.position="none")

dev.off()

tiff('fig6.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

     
     interplot(m = mayoral.general_sq, var1 = "l_stops", var2 = "l_stops", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("2013 General Election")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=10),
                legend.position="none")
          
dev.off()



tiff('fig7.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

     interplot(m = thompson_sq, var1 = "l_stops", var2 = "l_stops", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient  \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("Support for Thompson")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=11),
                legend.position="none")   
dev.off()

tiff('fig8.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

     interplot(m = deblasio_sq, var1 = "l_stops", var2 = "l_stops", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient  \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("Support for De Blasio")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=11),
                legend.position="none")
dev.off()

tiff('fig9.tiff', width = 5.07874, height =5.07874, units= "in", res=600)

       
     interplot(m = liu_sq, var1 = "l_stops", var2 = "l_stops", hist = T) +
          aes(color = "pink") +
          geom_hline(yintercept = 0, linetype = "dashed") +
          ylab("Estimated Coefficient \n (Log Odds)") +
          xlab("Log(Stops) Squared") +
          #ggtitle("Support for Liu")+
          theme(panel.grid.major = element_line(colour="#f0f0f0"),
                panel.grid.minor = element_blank(),
                panel.background = element_blank(),
                plot.subtitle = element_text(hjust = 0.5),
                plot.title = element_text(hjust = 0.5),
                axis.text=element_text(size=10),
                legend.position="none")


dev.off()



